home *** CD-ROM | disk | FTP | other *** search
/ Aminet 33 / Aminet 33 - October 1999.iso / Aminet / comm / misc / ITA1004Daemon.lha / ITA1004Daemon-Install / Install < prev    next >
Encoding:
Text File  |  1999-08-14  |  10.8 KB  |  360 lines
  1.  
  2. ; *****************************************
  3. ; *                                       *
  4. ; *  ITA1004Daemon-Installationsskript    *
  5. ; *                                       *
  6. ; *  $VER: 0.2 (14.08.99) by J.Reinert    *
  7. ; *                                       *
  8. ; *****************************************
  9.  
  10.  
  11. ; *************************************************************************
  12. ; Definition der globalen Konstanten
  13. ; *************************************************************************
  14.  
  15. (set #liesmichtext     "Lies_mich.TXT")       ; Schlusswort
  16. (set #aiconname        "ITA1004DaemonStart")  ; Name Autostart-Icon
  17. (set #aiconsource      "daemon.noinfo")       ; Quellname Autostart-Icon
  18. (set #aicondest        "SYS:WBStartup")       ; Ziel für Autostart-Icon
  19. (set #doksource        "Docs")                ; Anleitungen
  20. (set #developersource  "Entwickler")          ; Entwickler-Infos
  21. (set #progssource      "Programme")           ; Programme
  22.  
  23. ; *************************************************************************
  24. ; Definition der deutschen Texte
  25. ; *************************************************************************
  26.  
  27. (set #askprgdirmsg "Bitte wählen Sie die 'ITA1004Config'-Schublade aus.")
  28.  
  29. (set #askprgdirhelp
  30.   (cat "Es ist sehr wichtig, dass Sie die Schublade auswählen, in der "
  31.        "sich das konfigurierte Programm 'ITA1004Config' befindet. "
  32.        "ITA1004Daemon verwendet die selbe Prefs-Datei wie ITA1004Config.\n\n"
  33.        "Falls Sie eine ältere Version per Autostart-Icon starten ließen, "
  34.        "wird der Pfad vermutlich schon stimmen"
  35.   )
  36. )
  37.  
  38. (set #askdeveloper
  39.   (cat "Wenn Sie Applikationen für ITA1004Daemon programmieren möchten, "
  40.        "können Sie die dafür notwendigen Informationen umkopieren.\n\n"
  41.        "Möchten Sie die Entwicklerinfos installieren?"
  42.   )
  43. )
  44.  
  45. (set #askdeveloperdirmsg "Wo soll die Entwickler-Schublade angelegt werden?")
  46.  
  47. (set #askdeveloperdirhelp
  48.   (cat "Die Entwicklerinfos beinhalten Informationen zu ARexx-Port "
  49.        "und Exec-Messageport sowie Beispiele"
  50.   )
  51. )
  52.  
  53. (set #error_dtinstall1
  54.   (cat "\nAnscheinend haben Sie die falsche Schublade ausgewählt. "
  55.        "Starten Sie die Installation daher erneut.\n\n"
  56.        "Falls Sie 'ITA1004Config' noch nicht installiert haben, sollten Sie "
  57.        "dies jetzt nachholen"
  58.   )
  59. )
  60.  
  61. (set #error_dtinstall2
  62.   (cat "\nAnscheinend haben Sie das Programm 'ITA1004Config' noch "
  63.        "nicht konfiguriert (Prefs-Datei fehlt).\n\n"
  64.        "Starten Sie bitte erst ITA1004Config, setzen Sie die "
  65.        "Programmeinstellungen und speichern Sie diese. Danach "
  66.        "können Sie diese Installation erneut starten."
  67.   )
  68. )
  69.  
  70. (set #helpwbstartup
  71.   (cat "Da Sie ein Autostart-Icon installiert haben, ist es nicht "
  72.        "notwendig, daß Sie das Programm 'ITA1004Daemon' in der 'WBStartup' - Schublade "
  73.        "belassen. Entfernen Sie es bitte."
  74.   )
  75. )
  76.  
  77. (set #askwbstartup
  78.   (cat "Möchten Sie, daß 'ITA1004Daemon' bei jedem Rechnerstart "
  79.        "automatisch aktiviert wird ? \n\n"
  80.        "Wenn ja, wird im nächsten Schritt ein Projekt-Icon "
  81.        "in den \"WBStartup\"-Ordner Ihrer Boot-Disk kopiert\n\n"
  82.        "Wenn nein, bleibt ein eventuell vorhandenes Start-Icon erhalten."
  83.   )
  84. )
  85.  
  86. (set #aiconfail1
  87.   (cat "Es existiert keine 'WBStartup'-Schublade auf Ihrer SYS- "
  88.        "Partition. Wenn Sie 'ITA1004Daemon' bei jedem Rechnerstart "
  89.        "automatisch in Ihren Rechner laden möchten, wird diese unbedingt "
  90.        "benötigt.\n\nSoll eine Schublade erzeugt werden?"
  91.   )
  92. )
  93.  
  94. (set #aiconfail2
  95.   (cat "Leider existiert keine 'WBStartup'-Schublade auf Ihrer SYS- "
  96.        "Partition. Automatischer Programmstart ist daher leider nicht möglich."
  97.   )
  98. )
  99.  
  100. (set #askuserstartup
  101.   (cat "Möchten Sie einen Suchpfad zur Schublade 'ITA1004Config' anlegen? "
  102.        "Programme dieser Schublade können dann einfacher in einem "
  103.        "Shellfenster gestartet werden.\n\n"
  104.        "Soll die User-Startup erweitert werden?"
  105.   )
  106. ) 
  107.  
  108. (set #nodaemon
  109.   (cat "Aus irgend einem Grund wurde das Programm \"ITA1004Daemon\" nicht "
  110.        "umkopiert. Wiederholen Sie bitte den Installationsvorgang"
  111.   )
  112. )
  113.  
  114. ; *************************************************************************
  115. ; Beginn der Installation
  116. ; *************************************************************************
  117.  
  118. (complete 0)
  119.  
  120. (welcome)
  121.  
  122. ; *************************************************************************
  123. ; ITA1004Config-Pfad ermitteln, falls Icon in SYS:WBStart vorhanden ist
  124. ; *************************************************************************
  125.  
  126. (if (exists (tackon #aicondest "ITA1004DaemonStart.info"))
  127.   (
  128.     (iconinfo (dest (tackon #aicondest "ITA1004DaemonStart"))
  129.               (getdefaulttool "testdir")
  130.     )
  131.     (set @default-dest (pathonly testdir))
  132.   )
  133. )
  134.  
  135. ; *************************************************************************
  136. ; Zielverzeichnis auswählen lassen
  137. ; *************************************************************************
  138.  
  139. (set #destname
  140.   (askdir
  141.     (prompt  #askprgdirmsg)
  142.     (help    #askprgdirhelp)
  143.     (default @default-dest)
  144.   )
  145. )
  146.  
  147. (if (= #destname "")
  148.   (
  149.     (abort "Fehler bei Auswahl!")
  150.   )
  151. )
  152.  
  153. (set #icon_toolentry (tackon #destname "ITA1004Daemon"))
  154. (set #dokdest (tackon #destname "Docs"))
  155.  
  156. ; *************************************************************************
  157. ; ITA1004Config-Installation prüfen
  158. ; *************************************************************************
  159.  
  160. (if (exists (tackon #destname "ITA1004Config.wizard") (noreq))
  161.   (
  162.     (if (not (exists (tackon #destname "ITAConfig.Prefs") (noreq)))
  163.       (abort #error_dtinstall2)
  164.     )
  165.   )
  166.   (
  167.     (abort #error_dtinstall1)
  168.   )
  169. )
  170.  
  171. (complete 5)
  172.  
  173. (set #iconsource #progssource)
  174.  
  175. (complete 10)
  176.  
  177.  
  178. ; *************************************************************************
  179. ; Falls vorhanden, alten ITA1004Daemon beenden
  180. ; *************************************************************************
  181.  
  182. (if (exists "ExitDaemon")
  183.   (
  184.     (run "ExitDaemon")
  185.     (if (exists "RAM:OldDaemon_Removed")
  186.       (
  187.         (message "Ihre aktive Version von ITA1004Daemon wurde soeben aus dem Speicher entfernt. Nach erfolgreicher Installation müssen Sie \"ITA1004Daemon\" neu starten.")
  188.         (delete "RAM:OldDaemon_Removed")
  189.       )
  190.     )
  191.   )
  192.   (
  193.     (message "Eine eventuell aktive Version von ITA1004Daemon müssen Sie zuerst beenden, bevor Sie weitermachen! Benutzen Sie dazu das Programm \"Exchange\" der Workbench.")
  194.   )
  195. )
  196.  
  197. ; *************************************************************************
  198. ; Kopieren der Programme
  199. ; *************************************************************************
  200.  
  201. (if (exists #progssource (noreq))
  202.   (
  203.     (copyfiles (prompt "Programme kopieren")
  204.                (source #progssource)
  205.                (dest #destname) 
  206.                (help "")
  207.                (pattern "#?")
  208.                (confirm "EXPERT")
  209.     )
  210.   )
  211. )
  212. (complete 40)
  213.  
  214. ; *************************************************************************
  215. ; Kopieren der Anleitungen
  216. ; *************************************************************************
  217.  
  218. (if (exists #doksource)
  219.   (
  220.     (copyfiles (prompt "Anleitungen kopieren")
  221.                (source #doksource)
  222.                (dest #dokdest) 
  223.                (infos)
  224.                (help "")
  225.                (all)
  226.                (confirm "EXPERT")
  227.     )
  228.   )
  229. )
  230. (complete 55)
  231.  
  232. ; *************************************************************************
  233. ; Installieren des Autostart-Icons
  234. ; *************************************************************************
  235.  
  236. (if (exists #aiconsource)
  237.   (
  238.    (if (not (exists #aicondest))
  239.     (if (askbool (prompt #aiconfail1) (help "") (default 0) (choices "Ja" "Nein"))
  240.       (makedir #aicondest (infos))
  241.     )
  242.    )
  243.    (if (exists #aicondest)
  244.     (
  245.       (if (exists #icon_toolentry)
  246.         (
  247.           (if ((askbool (prompt #askwbstartup) (help "") (default 0) (choices "Ja" "Nein")))
  248.             (
  249.               (copyfiles (prompt  "Icon kopieren") (source  #aiconsource) (dest    #aicondest) (newname (cat #aiconname ".info")))
  250.  
  251. ; *************************************************************************
  252. ; Default-Tool und Tooltypes (Zukunft) eintragen
  253. ; *************************************************************************
  254.  
  255.               (set #newaiconname (tackon #aicondest #aiconname))
  256.  
  257.               (if (exists (cat #newaiconname ".info"))
  258.                 (
  259.                   (Tooltype (dest #newaiconname) (Setdefaulttool #icon_toolentry))
  260.                   (if (exists "SYS:WBStartup/ITA1004Daemon")
  261.                     (message #helpwbstartup)
  262.                   )
  263.                 )
  264.               )
  265.             )
  266.           )
  267.         )
  268.       )
  269.     )
  270.     (
  271.       (message #aiconfail2)
  272.     )
  273.    )
  274.   )
  275. )
  276. (complete 70)
  277.  
  278. ; *************************************************************************
  279. ; Entwicklerinformationen kopieren
  280. ; *************************************************************************
  281.  
  282. (if (exists #developersource)
  283.   (
  284.     (if (askbool (prompt #askdeveloper) (help "") (default 0) (choices "Ja" "Nein"))
  285.       (
  286.         (set developerpath (askdir (prompt  #askdeveloperdirmsg)
  287.                                    (help    #askdeveloperdirhelp)
  288.                                    (default @default-dest)
  289.                       )
  290.         )
  291.         (if (<> developerpath "")
  292.           (
  293.             
  294.             (set developerdir (tackon developerpath "DD-Entwickler"))
  295.             (makedir developerdir (infos))
  296.             (copyfiles (prompt "Entwicklerinfos kopieren")
  297.                        (source #developersource)
  298.                        (dest developerdir)
  299.                        (infos)
  300.                        (all)
  301.                        (help "")
  302.                        (confirm "EXPERT")
  303.             )
  304.           )
  305.         )
  306.       )
  307.     )
  308.   )
  309. )
  310.  
  311. (complete 80)
  312.  
  313. ; *************************************************************************
  314. ; Suchpfad in User-Startup einbinden
  315. ; *************************************************************************
  316.  
  317. (if (askbool (prompt #askuserstartup) (help "") (default 0) (choices "Ja" "Nein"))
  318.   (
  319.     (set cmd (cat "Path "#destname" add"))
  320.     (startup "ITA1004Daemon-Tools" 
  321.              (prompt (cat "Zeile '" cmd "'in User-Startup einfügen"))
  322.              (command cmd)
  323.              (help "")
  324.     )
  325.   )
  326. )
  327.  
  328. (complete 90)
  329.  
  330.  
  331. ; *************************************************************************
  332. ; Aktuelles Verzeichnis setzen
  333. ; *************************************************************************
  334.  
  335. (if (exists (tackon #destname "ITA1004Daemon"))
  336.   (
  337.     (set @default-dest #destname)
  338.   )
  339.   (
  340.     (abort #nodaemon)
  341.     (set @default-dest "")
  342.   )
  343. )
  344.  
  345. ; *************************************************************************
  346. ; Falls vorhanden, einen LiesMich-Text anzeigen
  347. ; *************************************************************************
  348.  
  349. (if (exists #liesmichtext)
  350.   (run (cat "sys:utilities/Multiview " #liesmichtext))
  351. )
  352.  
  353.  
  354. (complete 100)
  355.  
  356. ; *************************************************************************
  357. ; Ende der Installation
  358. ; *************************************************************************
  359.  
  360.